10 REM* 1541 MOTOR SPIN ROUTINE *
20 PRINT CHR$(147)"HOLD [211][200][201][198][212] TO SPIN DRIVE MOTOR"
30 PRINT"PRESS [195][212][210][204] TO QUIT PROGRAM"
40 OPEN 15,8,15
50 FOR I=0 TO 1
60 S0=S1:S1=(PEEK(653)=1)
70 IF S1 AND NOT(S0) THEN PRINT#15,"M-E"CHR$(126)CHR$(249): REM MOTOR ON
80 IF NOT(S1) AND S0 THEN PRINT#15,"M-E"CHR$(232)CHR$(249): REM MOTOR OFF
90 I=-(PEEK(653)=4): NEXT: REM UNTIL CTRL PRESSED
100 CLOSE 15